. us 


.* JOGOS *. 


x SPECTRUM 


RUI MIGUEL SARAMAGO 
e 
ULISSES NUNO ALMEIDA PINTO 


ganham os Jogos de Janeiro 
Ambos com 15 anos, estes dois jovens inventores dos programas «Teste Geográfico» 
e «Aviador» foram os seleccionados e premiados no mês de Janeiro. 
Aos leitores dos programas seleccionados oferecemos dois prémios: uma assinatura 
semestral dos Jogos Sortidos e um volume encadernado da revista de banda desenhada 
«Jornal da B.D.» 


ENVIE-NOS OS SEUS PROGRAMAS ORIGINAIS 
E GANHE PREMIOS 


Colabore connosco, enviando-nos o seu programa original, do seguinte modo: 


1. Nome, morada, idade e n.º de teleforre. 
2. O programa de preferência em cassette, indicando o tipo e a capacidade do computador. 
3. Uma descrição geral do jogo com as instruções necessárias. 
4. Uma explicação detalhada da função das várias partes do programa. 


Para: JOGOS SORTIDOS - Rua Duque de Palmela, 37, 2.º-Dto. —- 1200 LISBOA 


Jogo escrito por Ulisses Nuno Couto de Almeida Pinto, 
de 15 anos, para o Spectrum 16 K. 


Neste jogo você pilotará um avião azul sobre uma zona 
montanhosa, procurando atingir os alvos que lhe foram 
distribuídos. A sua perícia permitir-lhe-á evitar o choque 
fatal com os picos montanhosos. O seu avião desloca-se 
atravessando o visor e, no fim de cada secção, haverá 
novos alvos e outras montanhas. À partida, pode contar 
com 5 aviões para executar com êxito a sua missão. Não 
desperdice aviões nas montanhas e, em contrapartida, po- 
derá ser bonificado com mais aviões e mais tempo. 

A linha 215 permite-lhe mudar a velocidade do avião. O 
programa está estruturado como segue: 

Linhas 10-40 — desenha o avião. 

Linhas 50, 55 e 70 — inicialização das variáveis. 

Linhas 100-190 — desenha montanhas e alvos. 

Linhas 205-290 — comanda o movimento do avião (o ciclo 
dos disparos está contido nas linhas 250-280). 

Linhas 310-340 — explosão do avião. 

Linhas 370-400 — define a pontuação por acerto nos alvos. 
Linhas 410-430 — bónus de perícia. 

Linhas 440-450 — fim do jogo. 
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TESTE GEOGRÁFICO 


Este programa, seleccionado e premiado por JOGOS 
SORTIDOS no mês de Janeiro, foi escrito por Rui Miguel 
Saramago, de Alfragide, para o ZX SPECTRUM. 


É um jogo interessante e educativo, pois se você não 
sabe... terá que aprender as capitais de 35 países da 
Europa, para responder à curiosidade geográfica do seu 
computador. 

As instruções para a programação, são as seguintes: 
Linha 5 — instrução que faz com que os números aleatórios 
sejam sempre diferentes, em cada jogo. 

Linha 10 — dimensiona o quadro de 35 elementos (os 
DATA da linha 5010) —- os nomes dos países. 

Linha 25 — dimensiona o quadro das capitais. 

Linha 35 — instruções para jogar. Definição dos valores 
1 ou 2, consoante a maneira como se escolhe jogar. 
Linha 40 — introduz a escolha entre a modalidade 1 e 2. 
Linha 50 — envia a execução para a linha 1000 ou 2000, 
conforme a escolha efectuada. 

Linha 1000 — inicia 3 variáveis: Q — número de respostas 
certas; R — número de respostas erradas; S — número de 
jogadas. Esta linha também chama a subrotina na linha 
3000, que limpa o écran, escreve o nome do jogo e o 
número de respostas certas e erradas (variáveis Q e RS). 
Linha 1015 — escolhe um valor P aleatório entre 1 e 35 
— todos os elementos dos dois quadros. 


Linha 1020 — pergunta a capital do país. 

Linha 1030 — imprime a capital (resposta). 

Linhas 1050 e 1060 — verifica a resposta. Ajusta as pon- 
tuações Q e R. Se a resposta estiver errada indica a 
capital certa. 

Linhas 1070 a 1200 — variável n.º de jogadas (S) de 1 e 
faz o INPUT das letras S ou N para se continuar a jogar 
ou não. 

Linha 1210 —- chama a subrotina da linha 3000, se se 
continua a jogar (S) e passa-se à linha 1015. 

Linha 1220 — chama a linha 1015. 


Se não se continuar a jogar: 

Linha 4000 a 5000 — subrotinas que indicam as pontuações 
finais. Se realmente se jogou (linha 4010), lê as variáveis 
Q e R. Se se acertou tudo (linha 4020); se se errou em 
tudo (linha 4200). 


A segunda parte do programa: 

Linhas 2000 a 2220 — idêntica à 1.2 parte, ou seja, às 
linhas 1000 a 1220, diferindo só no que se pergunta — 
os países e não as capitais. 

Linhas 5010 a 6000 —- DATA dos nomes dos países e 
das capitais. 

Linha 6000 — grava o programa em cassete. 
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Escrito por Jonathan Moakes para o ZX-81 16K 


Neste jogo você foi condenado injustamente e aprisionado 
no planeta-prisão intergaláctico. Para fugir, terá que dominar 
o guarda do depósito de combustível para abastecer o 
seu aparelho individual e escapar rapidamente para o es- 
paço exterior que é patrulhado por duas naves espaciais. 
Se conseguir escapar aos seus perseguidores, a justiça 
será reposta. Boa sorte! 
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Este programa foi desenhado para ser jogado por dois 
jogadores, cada um deles controlando um cowboy e a 
respectiva carabina. 

De cada lado da estrada, beneficiando do abrigo dos cactos 
que se erguem a espaços na pradaria, cada cowboy tenta 
atingir o outro com 5 tiros, procurando tirar vantagem do 
carro coberto que se desloca pela estrada. 

Em princípio cada cowboy permanecerá do seu lado da 
estrada. No entanto, se desejar que eles percorram todo 
o écran, tente os valores A, B, C e D nas linhas 620, 
625 e 710 e talvez consiga. 

O programa está estruturado da seguinte forma: 

Linhas 10-50 — dispara uma bala e detecta se um dos 
intervenientes foi atingido. 

Linhas 90-200 — fornece as instruções para o jogo. 
Linhas 530-600 — desenha o écran. 

Linhas 610-760 — define o vencedor e também contém 
a principal rotina do jogo. 

Linhas 770-830 — define os gráficos e as variáveis usados 
no jogo. 
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RE O, Ls: INK 1I;CHRS AGA 

SiB PRINT OVER 4;AT A,B; CHRS 4 
5:AT A+1,B; OVER 2; CHRS 147 

o280 LET A=2+ (IN 6342060=-199 AND AQ 
TTR (A+2,68) =32 BND ATTR (A392,8+412 
3) =32 AND A<19)- (IN 04519-198 AND 
STIR (0-1,821/=32 AND ATTR (A-i,E 
-1i=32 BHND B>521 

. 5295 LET B=B+ (IN 659022=198 AND &G 
SR (A,B+2) =32 AND ATTR (A+1,B+1 
| =32 AND B<12) - (IN 65278=198 ANO 
ATTR (A,B-1) =352 AHD ATTR (A-1,B 


-2)=32 AND B>2) 
S30 OUT 654996,090: OUT 64510,0: O 
QUT 0527/83,0 


“1 65022,6: 

6453 PRINT AT A,B, CHRS 146, AT AS 
1,B;, CHRS$S 147 

Do, IF INKEVS= 2 
280 PRINT AT C,D; OVER 1; CHRS 1 
39, AT C+1,D;, OVER 1; CHRS$ 1512 

78080 LET C=C+(IN 61435=1980 AND 5 
TTR (C+2,D) =32 AND C<19)-(IN 573 
renda AND ATTR (C-1,D) =32 AND C 
E 

718 LET D=D- (IN 49150=198 AND A 


THEN GO TO 180 


Lapiseiras de precisão 

em 5 modelos à sua escolha. 
Evoluída tecnologia 

de fabrico nas medidas 
0,3-0,5-0,7-0,9 mm 


de espessura de traço. em qualquer ângulo. 


claras e nítidas. 


Com apagador e arame 
de limpeza incorporados, 
clip metálico e apoio 
anti-derrapante. 


A tradição de qualidade do fabricante: 


à venda nas boas casas da especialidade 


Toa DO.) 


Caneta de tinta líquida 
com esfera metálica de 
longa duração, que escreve 


Faz cópias a «químico» 


a tradicional de corpo azul 
e a ULTRA-FINA (0,2 mm) 
de corpo preto em 4 cores | 


A tradição de qualidade do fabricante: 


MITSUBISHI PENCIL CO., LTD. Eos PENCIL CO., LTD. 


à venda nas boas casas da especialidade 


(C+2,D-I 


TTIR (C,D-2) =352 AND ATTR 

i =32 AND D>280) + (IN 32766-198 AND 
ATTR (C,D+1)=32 AND ATTR (C-1,D 
+1) AND D<30) | 


“20 PRINT AT C,D,;, CHRS 150,HT C+ 
1 ,D;CHRS 1512 7 

725 IF INKEY$=“9" THEN GO TO 25 

7390 IF 51=5 THEN PRINT JINVERSE 
s;AT 11,280; PAPER 7;. FLASH 1;R55 
" VUINS": PAUSE 200: PRINT AT ds 


So PRRERM . Ps E 
*** POQUSE Q: FLADBA QB: 
s30 
740 IF 5S2=5 THEN PRINT 
- PAPER 7; FLASH 12;85; 
RUSE 208: PRINT AT 1 ass 


“SO E 


o: 


AT" ZE, 2 
UINS” : 
PAPER 7 
556 
AT 1520 
2. 


750 NEXT O 

7680 PRINT AT 2,16;7 
“: GO TO 600 
770 RESTORE 780: FOR N=USR 
TO USR “L''+7: READ A: POKE N,A: 
SESC N 

780 DATA 0,0,24,60,1902,195,195, 
195, 195, 126,189, 189, 259, 189, 1205 
3 


-. 290 DATA 45,1260,45,127,120,1260, 
280,48,00, 144, 216, S,2,0,8,0 

“388 DATA DA 2, 22, a”, SP? 219, 213 
, 223 ,º223,2280, 226,252, 252, os, 28, = 
= 

8186 DATA 12,30,12,254,50,30,360, 
12,180,9,27,90,8, a, 2, 

515 DATA 16, 16, 95,255, 255,95,8, 
2,8,16,16, 240, 248, 3,0, 2 

817 DATA Q,8,8S, 15,15, 9,8,80,16,2 
OS ,258,250, 255, 250, 2,0 


320 LET A=195: LET B= à: . LET -Caas 
- LET D=50: LET 3150: LET 3250 
3839 RETURN 

1200 SAVE “UILD WEST!” LINE 90 


pn 


Marcadores de traço intenso 
extra-fino, de alta precisão. 
Duas espessuras de traço à 
escolha: 0,2 e 0,3 mm. 
Escrita nítida 

e confortável. 


Dt, 


[RP 
IF 


2 versões: 


A ponta de «design» exclusivo 

| produz um fluxo constante de 

| tinta e um traço de espessura 
uniforme. 


de escrita. | 
A tradição de qualidade do fabricante: 


Distribuidor em Portugal e Ilhas: 


ARTUR WESTHEIMER, LDA. 


Largo Cristóvão da Gama. 10-B. Damaia 


2700 AMADORA 2700 AMADORA 


Distribuidor em Portugal e Ilhas: 


ARTUR WESTHEIMER, LDA. 


Largo Cristóvão da Gama. 10-B. Damaia 


[à von PENCIL CO., LTD. 


à venda nas boas casas da especialidade 


Distribuidor em Portugal e Ilhas: 


ARTUR WESTHEIMER, LDA. 


Largo Cristóvão da Gama. 10-B. Damaia 
2700 AMADORA 


Escrito para o ZX SPECTRUM, por Mathew Homer 


Neste programa você comanda uma base de misseis nu- 
cleares que foi construída para defender seis cidades de 
um ataque nuclear. A sua missão é conseguir afastar do 
seu objectivo os mísseis atacantes o tempo suficiente para 
as cidades serem evacuadas. 

A sua defesa é constituída por 30 mísseis, que você pode 
disparar contra o inimigo. Contudo, atenção, porque se a 
sua base for atingida perderá todos estes mísseis. No 
próprio programa estão dadas as instruções para poder 
fazer esta acção, que se manifesta no écran através de 
um «X» que se pode deslocar em oito direcções diferentes. 


Pontuação 


Por cada missil atingido você ganha 1000 pontos. 

Se conseguir evitar que qualquer uma das suas seis cidades 
seja bombardeada, receberá pontuação de bónus. 
Quando ultrapassar os 50 000 e os 100 000 pontos, obterá 
uma cidade de bónus. O único contratempo surge quando, 
de vez em quando, aparece, atravessando o écran, um 
avião que deixa cair uma quantidade de bombas. Tente 
destruí-lo antes de ele descarregar a sua carga mortal! 


Explicações linha a linha: 

Linhas 2-62 — relativas aos resultados/pontuações e variá- 
veis. 

Linhas 65-95 — determina o trajecto e o objectivo dos 
novos mísseis. 

Linhas 100-995 — teclado e movimento dos misseis. 
Linhas 1000-2060 — controla o movimento das bases e 
os mísseis de defesa. 


E 
te: 
*CHT O: 
REC CES :-BEEP .3;,98 

DIM 917): LET 857: LET. VV = 
RrTLET ot) =20: LEF 912) =BB: LEVY 
RE (o) =92: LET 9(4)=128: LET 915) 
ER: LET q (681 322496:, LET q(7/)=220 


*) 
TH) 


it A 
f1) 


“fg Ae 


e 


fil 


MO «om 


U 
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"| ATAQUE NUCLEAR 


pa 
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Linhas 2100-2209 — define o fim do ataque e a destruição 
das cidades. 

Linhas 2210-2438 — rotina dos resultados. 

Linhas 2500-2760 — rotina dos bónus. 

Linhas 3000-3170 — controle do bombardeiro e dos seus 


misseis. 

Linhas 4000-4130 — gráficos. 

Linhas 5000-5200 — explosões dos mísseis atingidos pela 
defesa. 

Linhas 6000-6049 — controle do tiroteio dos mísseis de 
defesa. 

Linhas 6050-6078 — instruções para o jogo. 

Linhas 6080-6120 — imagem inicial do jogo. 

Linhas 6130-6310 — controla a formação no écran e nas 


bases quando as bombas não foram todas usadas. 
Linhas 6330-6900 —- desenho do armamento armazenado 
na parte inferior do écran. 

Linhas 7000-7150 — controla as explosões dos mísseis 
de defesa. 

Linhas 7200-7620 — forma a explosão nuclear e a nuvem 
em cogumelo. 

Linhas 7985-8200 — elimina o rasto dos mísseis e/ou das 
cidades assegurando que os novos mísseis não atinjam 
cidades já destruídas. Também indica as perdas em mísseis 
se a base de defesa é atingida. 

Linha 9005 — para gravação no gravador faça «GO TO 
9005». 


A seguir damos a possível modificação de uma pequena 
parte deste programa — linhas 7268 a 7620, que são relativas 
à explosão nuclear e à nuvem em cogumelo. Na figura 1 
verão este resultado, que é, no entanto, muito menos 
espectacular. 


AS FLASH 12: FRINT AT à25.t = 
2 So rim. Di, tt; Ms 

“O. FOR w=0. TO 30 STEP 10: EEB 
as ,w: EEEF «OS, 2S-w: NEXT u - 
su TO &: BEER .2,-SO: NEN 
+= mam &: PRINT HT LS,ttes- 
“E; tt4;m SA E RD 

se LAS E, e pnRfu! DES,E 

4 LET ab=28 LET ss=B: DIM C$ 
;-14): "DIM .& 13) LET c(1)=0: LE 
Cc(2) =&: LET c(3)=0: GO TO 6050 
Ss REM variabtes: a,b,t,d,e,t, 
holsdoR,lLsA,Ã,0O,P4IA, CSS. TV 50 
U,Z 

» REM UVariabtes: 2Z$,3a,bb,CC. 
,ee, ft ,gg,hh,ii,jsjs,kKk, Lt, BA,ANR 


A 
» 


[O O TS O O O CO O O OO ss sis 
+, 
4 


“'00O,PP,IIJCr,ss,tt uu, um, XX,UYU 246 QUER 2: PRINT BT 23. ME Rreo O 
Es 2049 DVER 2. INVERSE 2: PRINT AT 
7 REM VJarisbltes: ah,=€C,a;)y,9€;, n,C;"X": INVERSE Q: QUER 
af,3h,32i,34,9% =>aSa IF IN 65278<254 THEN GO SUE 
ii? Cú TO 420R saaR 
41 QUER 2: INK 7: FPBPER RR: 20OR 2260 RETURN 
DER O: INVER&AE Q: CLoat Q. BRICGCH 210900 LET áii=x.B 
T 1: CLS SO 70 ssa 21990 60 TO 67 
a REIS : ; ao 22224 IF nmnc=o THEM GO TO 2210 
Is RE?s motesr BTITZIR 2202 TF gyytc=ãb THEN CB TO BS 
je hEF: diitism Ey...- E223 Go TO 2508 
lo RES: psttnss irmas: >210 PRINT AT 5,8; sm, ER E F 
Z2oO Ser: ERR ER E 2 
Lo RES: =» T B,B;" um ' 
5s IF ss<u rHEN o E aa ES20 PRINT ; E = had 73 F 
> E 13,38 2 T 7,8; "rm" 
a Rena So): DEM a ap. DIM q idea RR ER : + 
ia): 3/411,82: DI8 alidi: DT BA T 9,8," k ii 
HM E Catar. BEM Eta DIA FÁSaS ad gi nad pera - É F 
E ad=0: LET Uuy=D: LET t=4 Sosa 1 IV,E pe 
PIMeT crso: LET LkSD: LET tÃAzIzs: ágio ARE E UE ada 
LET nn=Q: LET ac=12S: LET qa=l4 2260 PRINT AT 11,8; “mm” Em 
e ter ájsb: LET ddzo: LES Fis, TM 
O: LET aa=i: LET cc=i: LST d$g=Q: 2270 FOR a=40 TO E aTEP -1: BEEF 
LET ee=i: LET ff=iã: LET gg3=1: + a+.802,a: NEXT a: FOR a=32 TO & 
ET hh=1: LET bh=9: LET s=W: LET a. REFEP .2001S,5: NEXT a: PRUSE Td 
b=0: LET p=Q 2a 
3? PRINT AT Q,18; 5260 PAPER 4: BORCER À Trtte 720 
Ee : OUER 2; INK 9;9T 2,140; CMC GiGNT 3: MER DU JHYvERÕÍE PP: CM 
RA “:58Ss =262 LET w=e 
40 RANDOMITE >290 PRINT DT 2, il; CSCORFACNRBDS 
So PLOT 127,W egC2 PRINT AT 3,8,” SCORE 
sa LES x sd LET. wuz=ãQ NAME" é À “".TRÊêB I1lS<m 
aa LET c=20: LEY m=ER MM STR CTCILTZECtID,. CC, CSI 
62 PRINT OVER 1;NM ad eds SM 229% PRINT AT 7,0, 2 + TSE 
da IF gyys=z=ab THEM LET gd =d -LEN STR$8 c(2!;c(2Z?r, “". €S428% TRA 
GE IF L>jj THEN GU TOU Zita 3 "TAB 14-LEM STARS cial; coa 
E” LET b=b+ãd PO DO. 
Re TIO THEIMN.LET =b-1 22944 PLOT 7,184: DR9BU 242,24: DRA 
62 IF b>IA THEM RETUARH |U Q,-64: DRAU -2424,2: DRAIL 2,64: 
Re ET UU =) 4d PLOT 72,142: DRBU 2Z4R,R 
7ií LET E(hi=IMNIT (RHCsIAI-SL 2oD9S PLOT 32,154: CRBAU Q,-D4S: PL 
Ta LET dib) =9(UINT iRiNDAMMIA +41 OT 127,1584: DRBU Q,-aL 
Jat28x1ftbisys? asa PRINT AT 12,6; “YOUR STORES 
PE LET et(thki =178 PAT Losi; cresce c“;AT By UA 
O» 427 itb,TF=dtsà): LET itb; 8 -LEN STR$ <&Al,ES 
=e tt) 239S IF w>0 THEN GO TO 2370 
dO IF Jgibl:A UR Gib:l525858 THEN 2844 FOR az1i TÚ RR: IF ss5Ccia) MA 
Ee Tt PI EN GO TO 23216 
as. IF t>i THEMIS GETUAM Sado NEXT 3: GO TO E57R 
IV) CUER WQ “316 PRINT AT. 16,2; 'Y6eu have ERR 
12014 IF Et=0 UR bu=a TFHER GO TO Z Number “sa; sScorêa 
=2Vo . 317 INPUT “Please ENTER vgorr ma 
1) IF RND>yis THER RO tt DA me CcUD TO tAtetters) aus. “5 € SH 
q FDA azã Ft b 2390 FOR w=2 TO 3 STFEP -1 
11S TF etalt<Ss THEN GQ TOA 7200 dados LE] c&êturi)=eo cm 
120 FLOT d(a?t,etal PROL Filal,- 2330 LET clw+l) =ciwm: 
4 es32 NEXT uw 
130 LET e(al = Ta) -S LET dis ass LET w=2 
ia) +ria) Das) LET Cla: =as 
121. IF ag=zi THEM GO TO FrRER Lasa LET cáólal=cãis) 
eo LET k=!: IF POIMT (Sidi ,êeloa >a5S5 PRINT AT 1E,2,” 
Y-11=14 AND ATTAR (ilzgae-erallca,da: ih 
21/28! =pp THEN SO TO aerea 2360 GO To 22385 
13S IF IN 6Gs273:2S52 OR IM assi? 2370 PRINT AT 13,0; C=tepy of am 
-IN ESASD2s+ IN S7242+Irl FAIR. IPEZQR crebecard” 
THEN GQ MUIB IRER D280 PRINT PT 26,4;"Ptes<ce make 
1420 NEXT a a ChOLCO na. a. 
1580 IF RND>.2 THEM EGO TO a 2285 PRINT ““* E =End the BR 
9990 IF IN 6s27Ffa:rxzsoa OR IN ó4SsSIlê ogramrm po 
+IN 65022 +IN 5S7342+1%i4 “40201593 :19284 2399 PRINT S=5tar?t anothe 
THEM GO SUR Larga " game 
aa IF bh=z1 THEN RETURMI “LDO LET agz=INKEYS: TF ag5" “aa 
qas So To 1928 N GO TO 2400 
RE LEY. caX: LET n=Y9 409 IF ag='€e" UR ag" THEN ms 
aa ly LET xE=xPiiN ALaIR2aI = 
19022 LET y=y-(IN 573424250) 2410 IF ag='e CS 35="E THEN ST 
1030 LET x=x- (IN 643120 =25352+ SP 
13S LET g=y+(iIN 4013524282 M “4220 IF ag=s OR asg='"'5 THEN TEM 
VA IF x+40 THEN LET m=R TO 2422 
2020 IF y<O THEN LET y=a 2421 GO TO 2434 
2232 IF y>2A THEM LET y=2R SADO LET Xx2=8.. LET PRESSE: Ita QB: 
ERLO IF x5314 THEN LET x=ai PAPER S:. GORDER S: BRIGHT QD: DU 
2A4S IF c=x AND n=y THEN Go TO Z ER O: INVERSE O: FLASH OQ: CLS 
Usa FEEP o , SM 


EORLCER 3: QUER QD: IMVE 


RECO DIM 9(7): LET kt=?: LET. vv= PAPER E: 

ES EET q(1) =28: LET dio * =: LET. NOÉ OS BRICTI Be FLASFU Bo: CLS 
ME =02: LET gt4) =1Z6: LET 9ÇE) 2900 FOR asa TO HR: LET Rt=totas 
RES: LET 9(6?=196: LET 917) =226 43) 728 -& | 

Eds LET atb=28:. EU TO arvaIR 2780 LET JIJFI9IE  AET absdbad sk 

RNA IF ag='co CR E5="C" THEN GO RINT AT 21,54%; "MRS. NEXT 8 
TO 2458 27238 LET wn=mn+1: LET 914mm) =128 

Ra3) GO TO 2370 2740 PLOT eC,”e: CRADU 2GS,R 

456 COPY BEEFP .S,28€. PRINT AT £LrEea GO SUE 622% 

RS, O, x 27€E2 GO TO 2% 

ESTO 25380 5000 IF ad=1i THEN GO TO 160 

=5s00 BORDER &. PAFER 2: BRIGHT 1 35001 LET ad=1. INK & 

) RRR &: INVERSE Q FLASH Q- QUE 2Se4o0sS LET at=0 
ERRO: CLS 2.006 GO TO 1G2 
ESA LET Y=Q LET tTsSkR 3210 LET ac=ac+2 

RES PRINT AT 17,2;"CITYy PIONTSE. 3011 PRINT Aa! 12,2aC; Das. e 
O srs scoccie AT. IDR NISE 5020 EP ATTk tir, Scr rEpr TREN 

RE POINTS. scsceculcneccs ns O TG SOC 

RSI PRINT AT A,Iit; CBDNUS POINTE Anes Er RAND > .3 THEM “GO TO arasa 

— =0504 IF ac>27 THEN GO TO aese 

RES11 FOR a=i TO mm Pr ara” Tas Ses ,EET. DBA=SIE+ETIo —)] af=(ta0+ 

FPMEN SO TO 25i4& E = tá 

RESl2 NEXT a: GO TO 25724 3044 IF ae>a(ar)-6 ANDO ae<g(afi+ 

13 FOR wza TO mo — E), 3 iw) =9 4d THEN GO TO Sir 

Pe + 1) MEVYT mw. EET =050 PRINT AT 11,ac;'!' MP” 

RSA PRINT AT à,S;' CITIES REMAIt! 3255 GO TO 132 
NG * <c060Q IF ac-2% THEN LET ag=e 

ES2S PRINT AT S.7; "NONE" 2070 IF ad=i THEN GO TO Sale 

ESSO FOR a=zi TO ms AS PRINT HT .IL,O;” 

2840 PRINT AT S,4+453-1; "da % NT 400, Tac 

sa > LET u=y2odo. PRINT HT 12, ese Go TO 132 

PÍLEN STR$ 9; 4 BEEF ves, 32 2100 ETF yy:=ab THEN LET iiza 

DESA NEXT 5 2105 LET b=b+1 

=sEo PRINT AT &, S; "MISSILES REMA 3110 IF b>10 THEN LET b=b-1 
IMNMINGY 5120 IF b>14 THEN GO TO aasa 

ess2 IF t>=%Ra THEN PRINT AT 42,7 3230 LET gy=gu+a 

EE NONE '' A AO LET f (Cb) — 

PESOS LET c=8B: LET w=i80 2150 LET dib)=g (af) -IS.4 

ESP?PQ "POR a=ziã TO -tab+sta Saens T etby=75: LET 3 tb ,)) =3 (tê 
ESSE PLOT àa415+10-c,y: DRAW -1,- 1: LET à (b,2) =20 
E» DRAW -1,-2:;: DRBU Q,-S: CROWN - 3165 PLOT dt(b)-1,80 DRAW 1,-S 

g,-2: DRAU 2,-4: DRBU Q,-S: DRAl: 3174 GO TO arar 
O =D: DRAU Q,-3: CRAU E€,-2: DF 49200 FOR a=t TO ZS+ 

au a,a 4219 READ b 

RESSs PLOT asz15410-c,wu: CRDU 1,-1) 494220 POKE USAR ai +a,b 

FO DRAU 1,-2. DRAU Q,-S: CRBU 2,- 420360 NEXT à 

2: DRAW -2,-4: DRAU Q, -s. PRALU > 49035 GO TO 11 
.-2: DKAUWU GG, -3: DRABAU -&,-2 DRAL 4saQ40 CATA 6,6,22,39,95,95, L27,2S 
E 1 = Se, 526,92,02,125, 125,253,255 

25356 LET n=n+5S5002: PRINT AT 12,3% JASE DATRH 0,0 ,64,95, Ed 
-LEN Tso nn: BEEP- «BeB,Io 255 ,7,7,15,15,16,15,7 

RES IF az=i1858 THEN LET UERR SA 2260 DATA 224,224,24 aj “D4e, 240,24 

END IF a=15 THEN LET c=225 A,E24 ,224.0,0,0,0,0,0,º 3 

=saa NEXT a 42074 DATA D,2A,QA,4,aR Q,255,25S,2SS 

ES0OA LET ss-as+m+39: PRINT AT 2Ol, DO, 2,0, 0, LE, 192 

E 3 INE LS SCORE “q... a “ss... 2.0 a 4 Aa EE -O0OSA DATR 3,1,2,2,0,90,94,9,2955,25 
RAT 21,20-LEN STR$ se;<s “,o255,60,20,0,0,0 

eos IF vv=ze THEN GO TO 270 41690 DATA 192,128,2,80,24,2,9,8,00 

1 e610 IF ss>=10400Q4 THEN GQ TO ZE , 126 ,255, 255 ,2955,259,426,60 

so 4100 DATA 0,0,24,60,6U0,24,0,2,19 

PeB2Q IF ss>=Sapra THEN GU TO 264 =,244,127,653,127,195,7,14 

& 41110 DATA 192,224,242,252,255,24 

“'e€ãao GO TO 270a Q,192,0,€0, 126,92, 126,62,219,00, 

ces IF vv=z1 AND <e<10200R THEN 195 

eo TO 2700 4124 DATA 128,24, 7,3,7T (12,800, 18; 

RROS2 LET vov=zvv+2: IF um>o=S THEN 14, 255,255,2955,63, l24,224 

Sd TO 2704 4130 DATA 0,240,9,192,240,0,0,0 

2645 LET mn=zmm+1 000 LET aizê2ê3: LET ah=ac+8+20 

cOSQ LET g (mm? =wuw £&201 PRINT RT 11,0;º% 

css0 PRINT FLBaHl di; INK &6,AT 1,8 “So MK 

4; "EGNUS CITY aula Sao LET aj=1 

<"'0a4 FOR a=1 TO se: NEXT a: INPU SA)S LET ss zsºe+3220: PRINT AT O, 

e Dress ENTER to Continue... c.; o; l “o QUER Is 

as NK S;AT 0,10, "SCORE “,Es 

“04 IF xx=& THEN GO TO 2717 “SAE BO TO SRIB 

EvOS IF xx=4 THEN G0 TO 2715 S2US LET ah=dt(a? LET ai=e ta) 

REI LET xx=4: GET pp=34: Ttik A: sSsQ10O IF ai-lú;>174 OR ah-192<0 OR 

| PAPER 4: BORDER &: QUER O: TVE 3h+10>255 THEN GQ TO 99043 

 PSE »: BRIGHT Q:.FiiASHN BB: CLS “ri GO TO BBIS 

é 13 60 TO 2728 £&0Q1S BEFP .2Q25,20: GÔ TO 5190 

E71S LET xx=z6: LET pp EE. INK: coOlLsS LET ak =ê 
PAPER 6. BORCER 6: OVER QU: INVE EBQ1S LET ak=ak+1 

; RSE Q BRIGHT Q: FLAaM QU: CLS s216 FOR W=i TO SS STEP É 

-.16: GO TO 272R &Q2A PLOT ah-u,ai-w: CRAU 1, 

RE 17 LET xx=S: LET pp=42: INK 8: «aos PLOT ahb-uz2,Ei: DRAW A,R 


S050 PLOT ah+u,ai-v: DRAU o ME Es Se 07 Ma Mo Be é ee 
SQ03S PLOT ah-u+2,ai: CRALU 1,0 Súss4 PRINT INUERSE 1ºcRo E; Is 
3940 PLOT ah+u,aisu: DRAU 1,Q Ts mM: INK Si PRER DE a! E 
a OT ah,aisuz2: DRDU 1,O APER 6; INK q;* E o ; NK 2; 
5050 PLOT ahb-w,ai su: DRAU 1/6 c BU SE Ro: a 
sos PLOT ah,ai-wr2: DRAU 1,0 coss PRINT Apps: a fue do st 
+ lu! VE Sd = dera to Bio ud 
5182 IF ak=1i THEN INVERSE dl: E ; su e É À 
2183 IF ak=l THEN BEEP .325,28 5056 PRINT rios se am . — -— o 
cg ig al =á THEN GO TO 5S2e15 INK 3; "mus CER —m— ; ns mo: 
5 NUERSE Q 5057 PRINT iINVERS ; Ed 
S190 IF aj=i THEN LET adg=Q Hr ES “;. INS 3;ºBAH Bh! E EH & 
5155 PET SO re AR RE RR a S PRINT INVERSE 1º x a 
aj= ABS Ss PE 
RR docso Tre ao FE Qdo a o RS Do TS rn as “2 
= » = "Jo à à 
5001 OUER 1 e 2262 PRINT OTTO =. INK 4; mo 
ande "aa GEx+B-112-8R: LET r=170 E So) Cr O; e, ua 
= EG — L 
E2Oa PLOT aqa,aa: DRAOU G,r EOoTe INK 8: PLOT &,e: DRAW 2SS,B 
S004 PLOT 00,94: CRAU o,r - DRDU Dlo4: BRAU Ses DC o 
E. PU! Q 2, -1D4: TT. B,78 Rat 2SS,e 
E019) INVERSE à: PLDT oc-1,4a: DR 571 PRINT QUER à; “ar q as ro KEvYBO 
EU 2,0: PLOT co,aq: DRAU 2,S ARD DIQGRAM WITH KEY USES.: 
501S IF nn=Q THEN LET tt=tt-s SaA7Z2 PRINT INK à; INVERIE 1; AT 1 
EVIL IF nn=d THEN LEFT gR=kR92D1-t 2,4; LEFTR'; INK SS, PAPER 2: "RIG 
41.5 HT“; PAPER SR: INS 2," Io 
SS20 IF nn=0 THEN LET nn=24-Ltzsã NK 3; “"DOUNH INK 4; “FIREB' 
2 or , 
EO2S LET kk=kk-&G + - 
Sos LET nn=nn-os ar 
EB40 LET 00=kk+116: LET qq=Llt+2 (ij É fi 
E045 IF t<29 AND Li<B AND kk=21 1! a E | 
THEN GO SUB 6214 a! E E ! 
EQ49 INUERSE à: GO TO 7eaa Ê a] ia E) 
59S0 INK B: PAPER S: BORDER S: E ft iai e Eua 
RIGHT O: QUER Q: INVERSE 2: CLS AE iê | ii. 
- PRINT AT 10,4;“Do you want ins ti j£ R | É 
teu cuctsune?2": FOR w=1 TO IQR: MEX H Eds = é 4 E 
SiS E A E e. E 
sos 1 LET b$=INKEYS$: IF bg="" THE iii Ni 4, E 
N GO TO 6051 ) ia | le º 
Sos2 IF b$='y” DR b$="vY” THEN GO iii 2) | 
TO 6054 El E nÃ sá É 
EQSa GO TO 6198 31 O tá E RE 
Aes4 cLs PRINT AT O,9; "YOUR ER ii 1: 
IEFING À ada O i 
56055 PRINT “vou are in charge o IE: fi 
f a Surface- to-Air Guided Missi |: a A i 
te base at the cuthreak of nuc ue 
ER UAT so. pes > 
GESE PRINT ““vour job is to defe TETE. 
Ro 3 tatries ans your cwun missi tl” 
e Lt3aunchaiang site from the nucte 2a" E , 
ac Missi les. NT Sí: AT í, 2; PRESS NY KEY TO É 
sose PRINT ““vou have THIRTY Sur ANT INÚE onUsSE q e 
*tace-to-Air MNissi tes, vp to 198 = CR de ; 
Of these wiíilbe at the taunching Ste PAPÉR 5: CLS : PRINT RT 0,4% 
site at any time, if the site 1 2; SSCORINGO 8 
RR. Gti. massitos present, u 50 ob au or SRSO Die 
RT be o OWN VOL get points. 
E ar Deda a daw aro Of gach Catu ahd catch Sur Fface=m 
REo ERA PA 2 dC8 mk SINA data a Head dep RA nd at 
Regio + qi e en õ E U ecievw 
RE ases sou cam a Eri e Rd e bonus points, after Se,eaa 
es the morepeople can e e a Fes e you recieve a bonus 
Nm dé 44 ci aa 
EdgEs FOR w=1 TO SeC0: NEXT mw: PRI sazE PRINT “vou can shoot missi 
Rn era PRINT AT q e- cpecunTCO ites in any Of B directions. HM 
Gi DETAT! =. F Saga de perde 30U mea 2%. 28 
À - e a a es Õ ireyaur missi tes into 
OE) PRINT “The surface -to-Gii: Y 
Missiles are guided by moving th dO De nn é coca POR adia 
EE rcxo" to tne pbint tnat the ni ing to nedd st” p+ Ie 
RE su can nove fi poi rr O o PRESS ANT REY TO CONTIN 
odio | - a duas Pi L G 5198 
Fecrionse - 
| AQS3 PAPER 5: FOR u=2 TO 21. PRI 5980 SENT. RT RE TO Eos 
4 »T aT w,Q; il j o as - 
ad. E + 6081 PRINT AT &,44; A 
E. - NEXT w: PRINT AT 1 TS o na s.11, HH 
2,0 ía oii 
E am p |: . 6982 PRINT AT q ,11; po 
— ESs> PRINT znVERSE 1,1 RE RS Re SSA,42; q br SS iso e” 


6083 PRINT AT 12,13;' * a é O o 6214 INVERSE O: LET wwrwuw=a 
3,11," AAA CAT 14,12, 0º" ME 5215 FOR àa=2 TO 3 
asd 6216 FOR z=a+wuww TO wwuwuuw+S 
E984 PRINT AT 15,13 dC ART 2 €217 OVER 41: PLOT 412845 (z16),2+(a 
ad SAT 27,5," MESES +4): CREU 2,9: PLOT 116+1246),2+ 
(a*x4): CRAU Q,S 
SEDA TES O MS ; 
A216 NEXT: E 
= o À Ss = PR 
Ras prior 0,0: brpwy 285,0: vrau  E3is kExT E ODUER Q 
»,17S. DRAU -255,0: DRAW 0,-175 E r A ' 
HA cão, td: . , Gg221 IF ak=i THEN GO TO 6229 
EOS7 PLOT 4,4: DRAU 247,2: CARA  sãad2 IF t>=19 THEN GO TO 6225 
— D,1€67- DRAW -242,0: BRAIN Q,-167 5223 POKRE 23284,63: PURE 253281,6 
| EOSE PLOT S,êa: DR9U 239,0: DRAW >. PpPoOKE 23282,68 
— 2,152. DRAU -235,02: DRAW AQ, IES E>D4 GO TO 6228 
EQSC PRINT FLASH 1; INK 2,A7T 419, 5225 POKE 23275,65: POKE 23277,06 
a, “STOP THE TOPE =“ poKE 23278,04 
E2SA PRINT INK 4; INVERSE LAT S Edo Tr ak=0" 
RR Noir AT 242º Po oo - o PLOT 0,0: DRAU 255,0 
— é991 FOR a=sa TO 265 STEP 159 ED4A LET Rk=O: LET ti=12: LET nR 
&092: PLoT. a,150: DRAU -5,-9S,PI- 9. LET 00=125: LET EE 14 
Vw s,-S: DRAU S,-l2: CRAU B,-2B: e 
rPAl -120,-10: DRAU Q,-128: DRAU 1 Sato RETURN dades 
Ro, =" 
— EúGS. PLOT a,iSo: DRAW S,-2Q,-PI- 8338 RESTORE 6450 
PV =. prRAU O,-4sÓ. DRAW 124,-je: DRAW 6340 PLOT 8,2: DRA 255,4 & 
y -S5,-S: DRAW -S 1 OCRBU Q,-268: CS an FOR a=290637 TO 22229 STEP = 
SRhU 10,-12: CRAU Q,-14: DRAW —- SO 
19,-S. DRAU Q,2: DRAU -l2,4: DRF 6360 POKE Eee 
RS: s Esse POKE É 924792,125 
E, PLOT ag à «25: PLO &3 
E se. DRAU D,-8S é 5390 FOR a=290719 TO 22299 STEP 2 
— ÉQSE PRINT apa 1; INK S;MT à€, 26 
ENT ca -8):“P";AT 19, INT (93428), "e E400 READ b Ê 
Bá a, 
E296 INK S. PLOT aàa-2,137: DRAU BO. 6420 NEXT à 
1-3: CRQU i,Q: DRAW 4,1: CRAU Q, 6430 DATA 255,231,231,231,251,195 
RS. pmrawy -1,i: DRAU -1,0: PLOT a- SsS,125 
5,125: DRAU 0,3: DRAU 2,1: DRA B44% FOR a=2020716 TO 22296 STEP & 
i,-1: DRAU 2,-3: CRAU 2,2: CRAU Ss 
1,8 54524 READ b,c,d 
Es 509? PLOT a-D,422: DRAU Q,4: DRA 6460 POKE a,b: POKE asi,€: POKE 
e dy po a A ai Sa DE ad a+2,d: POKE a+4,b: POKE a+5,C: E 
| E -1,0: DRAW -1,-41: RU 2,-2: COKE a+6,d 
E cpaúw 1,>-1: DRAU 1,80: DRAU 0,2 6470 NEXT a 
| spos PLOT a,114: ORAU -2,e: DRAU 648€e DATA 132,33,8,115,156,231,1 
3,-2: DRAU 2,0: DRAU -2,0: DRAL 322,55,8 
RAU B,4: DRAW 1,2: DRAU 1, oi: DR 531, 132,88,8 
Al -1,-1: DRBU à2,-1: DRBU D,- É: e 
oo fNK 7: PioT'=-4,144: DRAW é 6506 POKE 25SsA diciis 
0 :D: PLOT a-4.142: DRAU 8,68 Ce nu a ana 
» E106 PRINT AT 153,INT (asa; E" RES O ORE SSAPê a 
101 PLOT a-4, a: ams 2,6: DRAW SE: esderata sam 
e ES532 IF a=2 THEN LET a=3 
=, -1: DRAU 1,0: DRAU 4,14: RAU = a= 
4 , —, . E A - ss” NEXT a 
EO: DRAW 12 sb cora 1,é: pRrRAW 1 E ne 
— Êêidso PLOT à-4,59: DRAU 1,0: DRAL! ZOO IF t>=3B THEN GO TO 7R5o 
4,-1: DRAU 1,8: DRAU Ade ORA. cao LET Sa: LET. t=t>1: LETOR 
1,4: DRAW 1,-i: DRAW A,R: (Ss) =y: Q1S) =x 
RE à. DRAU 1,0 78205 LET bb=1 
— 6105 NEXT a 72104 INK 2: QUER à 
E Re ce 21;AT 1,3; "PRESS ANY 2022 FOR M=aa TO < 
RREN O BEGIN. «cal "02 pin) ,QGqUW);e 
RRAo, FOR w=56 TO 35 STEP -1: IF sas NEXT wu 
| Es a “231 aa=a3+ lw-as 
RC SOR vc: To io. RUN *032 BEEP .01,35 
=1204 FOR v=zi TO 28 Ren Es — - / 
61a€ BEEP .01S,uv: BEEF .32S,RND+ 7235 FOR w=cc TO < o 
180-55S. BEEP .Ó2S,RNDI5S0-2S: BEE 72038 PRINT AT miw),Qual, Car 
É P (GDS ,RND+20-16: NEXT “ Psi Ra PRINT AT miwr,q(M; "O 
6144 FOR w=i TO 10: NEX w: S 7QLS wu 
E O: RUN ?PASQ BEEP .21,aAS 
REs0a LET ak=íi: CLS : PRINT AT 10 7258 LET cr=cc+iw-cc) 
,8; ""“NUCLEAR ATTACK" 7260 FOR w=ee TO s | | 
199 LET ss=-1: PRINT “TAB S;“pr “ada PRINT nT mi), QU; CO” 
ess any key to start" FOR wuz=z-12 "08E PRINT RT rw) ,q(w) -hA, a 
TO 12: BEEP .0OZôs, RND+*180- 42: BEE AT m tw) -I atu dO a "87 DANI TA 
RP .D2s,vs5: NEXT wu: PAUSE O: CLS .alul cdi 
L ' tm 
7àso7 BEEP .01,aS 
| s200 FOR z=2 TO 12 STEP 4 70685 LET ecez=ec+iw-ee) 
| 6218 PRINT AT 21,27; “la 7060 INK 6: QUER OQ: GO S8B 108 
6211 PRINT AT 21,2+17; "dal 7070 INK 2: OVER 14 
0212 NEXT Z 7A74 FOR w=tr TU Ss > 
6212 LET ak=1: GO TO 63286 7072 PRINT AT miwvl,qiuw);"0" 


33 


7275 PRINT aT o iwvi, Que) -1;' “e; 
AT m(w) —1, SR E ads A SF MW) +2 
sq (w) -1; 

"0880 NEXT uw 

REST fftafFf+tiwp=FF) 

IF S=30 THEN GO TO 7084 

INK 3: QUER YU: SO SUB 1LOYQ 
ENE e QUER 4 
FOR w=99 TO sx 
PRINT OT mntcwl 
PRINT AT miawr 
NEXT 

LET g9gI=99g+iwu-99) 
TF s=:34 THEN ED TO 
QUER à: GO 
QUER Q 

”oOR w et re EA AS 
PRINT AT m Cu) 
(ww) -1L,q(u)-4I; 
IF m(wv)>=20 THEN GO TO 7108 
PRINT AT mtwr+l,qiw)-1I;: 

o TO 72248 

39 PRINT OVER 1;AT mlwl+i,a(w) 


A Guess 
50 ANDA. ST 


J=J 
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To) 
mn 


INOE Dim] 


"2as 
SUB 1009 


VI 


“EJA 


e tw)=ã; * a 


JIN 


Q LET hbhh=hh+ (u-hh) 
390 PRINT INK Q; OVER D;AT y,X; 


PRINT AT 8,10;” 
“+ QUER 2; INK 9,AT B,IB; "SC 


rp ã 68 950y 


o De a RS 


U 
q 


ppDo o HXtpatapapoo papupi if) 
em 
ms 
To 
IA 


JO 


=3 

INUVERSE QB: 
QUER Q 
AND dta)>9 (tw 


OUER O: G 
O TO 100 


72398 NEXT vw GO TO 73965 

rosas LET 2Zza=w 

7240 LET tt=(dta)+3) 78- -2 

7250 PRINT nT 419, tt+d;: “;AT 28, 
ER ; o PT o, tt; ci 

«0624 LET uu =9 (1) 

726083 PLOT 3,24: DRAU 255,8 

taea?ô PLOT uu-4,1: DRAU 7,80: PLOT 
uUu-2,2: DQAU 2,8 

<e?S PLOT uu-5S,2: ORAU 3,8: PLOT 
uv-7,i1: DRAU 15,0: PLOT uu-2,83: 
DRAW 3,68 

+89 PLOT uu-4,3 DRAU 7,80: PLOT 
uvu-6,2: DRAU 11,84: PLOT uvu-2,á: 
DRAW 53,8 PLOT uu-SQ,1ã DRA 417, 
a PLOT vuvu-1,5: PLOT uu,S 

"285 PLOT uu-S,4: DRAIL 9, PLOT 
uv-68,3: DRAU 141, SO: PLOT uu-4,6: 
DRAW 7,0: PLOT vu- a,2: ORAU 415, 
U: PLOT uu-3,6: DRAU S,B: PLOT UU 
V-11,2: DRAU 21,8: PLOT vuu-i,Z: 
PLOT UU ,? 

7286 QUER 1: INK 3: PAPER 7: BRI 
GHT à: PRINT AT 2Z2i,tt- 1; a 
7287 PRINT AT oa, tt =>; º = 


SCO)REEGRRO 


aronumnous 


md) - SDS 


YOUS SCCTE......FSOS 
YCGjy4 havs tha mMumnosSo TaãIIêrsS. 
Please Enter 4VUr name. ..ce. tUP 
to 14 tettars) “RA 


Tr 10, tits “A EB, tes 
COM LAsttterLES «A 

7238 BRIGHT 9: VDUER 4: INK = PR 
PER xx: PRINT AT 21, tt-d, 

*+290 PRINT AT 20, tt-B;' E” 
AT ID,tt=25" “2 LBA,tteges 
ao Ac attds os 

7292 OVER Q 

1294 PLOT uL-7,5: DRAU 413,80: PLO 

T uU-7,6: DRAU 43,0: PLOT vu-3,4 
1,0: PLOT uu-8,3: DRAU ,3 

“295 PLOT uu-sS,8: DRA e 8: ta O 
CRAU S,a: PLOT Utrs Ts fr GRAU” 2& 
+39: PLOT uv-1,1408: PLOT uu, Ig 

300 PLOT uu-8,7: DRAU 1,0: PLOT 
su+6,7: DRAU 1,8: PLOT uu-9,6: 

DRAW 1,9: PLOT uUuLU+7,6: OCRAU 1,0: 
PLOT uUu-8,8: DRAU = 2: PLOT uu+ 

Ss,8: DRAU 2, 

7395 PLOT uu-S,S: DRAU 41,94: PLOT 
ULU+?Z,S: DRAU 1,8: PLOT UVv-7,9: 
DRAW 13,80: PLOT uu-7,1iaB: DRAU 13 
+90: PLOT uu-6,141: DRAU 141,8: PLO 

T uvu-11,2: DRAU 4, 

310 PLOT uvu+8,2: DRAU L,3: PLOT 
uuv-2,12: DRAU 7,24: PLOT uv-i15S,4 
: DRAÚ 1,9: PLOT vvu>513,1: CRAU 41 
o: PLOT uv-2,13: OCRAU 3, 


7315 PLOT UM- E, 3: DRBU i QB: PLO 
T uu+8,8: DRAW 1,0: PLOT UU-s 
DRAW 1,08: PLOT uU+7,98: 

: PLOT uv-138,7: DRAU 

v+8,7: DRAU 1,8: 
«AU 1,0: PLOT uu+7,148: 
ta20 PLOT uu-3,did: 
eo: CRAU 15,3: PLOT UU - -7 , 13: OCRAU 


13,08 
7325 PLOT uu-1284,3: DRAU 1,3: PLOQ 
: DRAU 1,80: PLOT uu-s, id 
8: PLOT uu+18,2: DRALU 2,80 
338 PLOT uu-3,1S: DRAU S,O: PLOQ 
v-1,i16: PLOT uv,ãsS: PLOT uu-i 
DRAW 1,24: PLOT uus14,14: DRA 
PLOT uUuU-I2B,3: 
: CRODU 2,48: 
do - CRB 
-L1,à: DRBU à, = 


PLOT uu- l3,18: 


Q 


DRAW Q,1:: 
=<1,0: 


udp 
co Uw 
C+PCRONDC 


“J 

(4 

b 
CR: 
DAT» ha 


DRAU Q,il: 


-3,1S: CROU 14,8: 
DRAW 13,90: PLOT uu 
A - “ÊPLOT du-3,28: 
PLOT uu-i,ia: PLOT UU ,. 
Ru o 
a à 


RA 


ul 


U 2, 


DRAUW am CC: CRAU QB, 


DRAW G,R 


a e -1,A: E 
RAU 932,2: CRAU 90,1: 
-— , 8 

7368 PLOT vuu-g,i3B: DRAW 15,08: 
OT uv-7,19: CRAU I2,U 

305 PLOT uy-5,280: DRAU 9,8: 
T UU-3;212: DBDRAU SB,P: PLOT. UM 
o: P4OT uv,22: PkOT uUy=-8, d&: 

UU+S,dá 


PLO 
—- | se 
PLOT 


k = | E | 7800 PLOT UU-10,26-s: DRAU 9,9: 
MO A o EgaU 16º cRau GS: E DRAW 10,-20: PLOT Ub-10 Saw: JOR 
“Eau iio: vrau o,/1. DRAU dD/'d. pL AU 9,98: DRAW 18,-190: DRÁU -4,-4: 


JIJ 


us, 24 DRE O,-1:: DRAU =4, aPLOT vu-8,20-w: DRAU 7,7: DRAU 

E ento coa CEM cdAd: DRAV O. Sosa pLOT ub=7.17ce- BROU B,8. E 
7275 INVERSÉ Q: PLOT uu- AI o OM RA RA ires Dr é o Do E 
BU 2,1: DRAU 1,0: DRAU 2,2: DRA ud e. as os 

E 4,0: DRAU 2,1: DRAU 2,4: PLOT RA de SEO E RO Sd 

Boro ie DRA 8,157 OBeAGÓEA ES p goaB GLOT UUcÊ SÉ -o: QRO Tu nd:s 
—, — ! ê —. 4 - > z em 

RR E E a,i: DR PROL SaAúu SIS, BLOT Duca isê-s: DB 

RRSS PLOT Uu-o el. DRAW 18,0: ,PL O o 4 caga CRS (98, 4 E 

o mu ="?, : R Die = ; 

2585 PLÓT Vu-S, 28: CRAU Gge: O LAO de e do SC 

T uvv-3,24: BRAU S,D: PLOT vu-l,2 Se Tr vUu-B 4a: BRAU AR + ue 
Ss. PLOT UU,25. PLÓT uuv-6,6: DRA! 72560 PLOT uu-2,13:. a: PLO 
Mi; PLOT uu+S,6: CRAU -1,8 Ru cara Bo o todo E ds 
ROO INVERSE 15 PLOT us-10,172: E cogu sarau LE A: 6: 

“au D,-1: DRAU 1,0: DRDU Q,-2: E 1º BRAU 8,0 Ra o 

edu 1,0: DRAW BA C4: DRAW 240: FL Soo6 BLOF'Ou-17,1: DRBU 35,0 

&: CRAU Q., o DRAW lt: DRAU 2, 75180 PLOT UU - -—S , 13: DR Bt Z,ci: DR 
“1. DRAU -2,0 AU 7,0: DRAW 1,1: PLOT uu-7,i1: 

"392 PLOT uvu-s,12: DRAU 3,0: pLo PRAU 13,08 DRAU L,-1L: ORA -15,0 

T uu+4,12: DRAU 2,0 A og Do DS dd 

POOS INVERSE O: PLOT uv-19,19: p 4628 CO o ad rua LER Tua 

REU 0,1: DRAW 1,0: CRAIy 9,2: ORA (202 + 92H22) 5d E =30 - 

U 1,0: DRAW Q,1: CRAU 2,a: PLOT a Gt À cá duto 

vv+32,19: CRPU Q,1:: DRAW -1,9: D 7286 IF g(z2)=128 

ES On 2,0: BRAM D,à: DR 987 IP g(lzz'-i28 ANO t190 THEN 


GO TO 58002 


+42 PLOT uu-a,2i: ERAU 15,0: PL ÇçZÃ989 IF g(zz)<.»,128 THEN LET wu =G 
ET” vuy-7,25: DRAW EB CW) 
*SDo PLOT vu-&,iB: CRAU 3,0: PLO 7990 FOR v=272 TO nn-41: LET 9 (w) = 
1 uu+4,10: DCRAU d,e 9 (yu +1): NEXT w: LET mm=ma-i 
7408 PLOT uu-S,2a CRAU 3,3: PLO 7996 PLOT 0O,e: DRAU 2S5,R 
E UU-S,2?: DRAW S,OD PLOT uv-1,ã 7999 GO TO S240e2 
&: PLOT uu,28: INVERSE 1: PLOT uv aúos LET ss=<e+10020 
U-72,5: CRAU 1,0: DRAU 2,4 “or Sadi CO TO SauLs | 
vu+6,S: DRAU -1,2e: DRAU Q,14 52AD2 OVER QB: INVERSE 4: PLOT it 
“410 PLOT uu = 2 CRAN Q,-2D: PLO ,à),ita,2): DRAU data) =4 (8, 4d 
" uy+4,7: DRAU Q,-Ê Ii -i(tla,e 
4 Is PLOT uu-ilB,2”r: DRDU B,-S: E gaia PLOT 1 (a, Al+ti ta, 4) <2553) 4,34% 
RAI 1,0 DRA Q,-2: BRAU 1,0: DF a,êi-tita,ãd? =255) : DRÊU dial -rt(s 
RJ 2,-1 DRAU 2a: PLOT uvu+9,28: 1) ta) —4 ta, O) 
“CRAU Q,-1:: DRAU -L,R: DRAY O,- 5828 PLOT Atdsi)-ti (têa,33 503,4 RM 
e: CRAL -1,20: DRAU 2Q,-1: DRAU - &)-(ita,1i)=8) DRAU dia)j-i ta,ãÃ), 
ER Ê | e (ta) -i (3,2): INVERSE 8 
c<deco INVERSE 2: PioT uv-lR,22: CC £A3A PRINT AT Ea + 
RAW 2,1: DRAU 14,2: DCRAU 2,2: DRE “-« QUER 4d: INK Qq;8T7T A,IRA; SC 
Hi 1,90: DRAU Q,1i: DRAU 2,2: PLOT ORE “ias 
UU+S,22: DRAU Q,1:: CRAU -1,0: OD 3a35S TF dd=i THEN PRINT AT | ,%5 4 
) 44d DRAU -1,92: DRAU 9,1: DE x” 
. -=a, OSS LET dd=0 
7425 PLOT uu-3,27: CREU 15,0: PL 590460 FOR es TO b 
OT uv-?7,28: DRAU 42,8 sSALS LET h=us+1 
2430 PLOT uu-Ss,208: CRAU €,0: PLO 30504 LET etw) =e th? 
T UU-3I,50: BRAU 8,9: PLOT vu-1,2 ssa LET dm) =d tibi 
RS PLOT uu,31: INVERSE à: PLOT U B25S6 LET Ff (w)=f th) 
-3,15S: DRAU 4,90: PLOT uUu43,41S: S2S5 LET ilw,ã) =i th,ã) 
CRAWU 4,0: PLOT uvu-Z,14: DRAU 3,8 2259 LET ilw,2) =i th,2) 
RLOT vuvs4*3,14: DRAW 2,0 2060 NEXT w 
7435: PLOT UU+8,10: PLOT uUuuU-4,7: E9070 LET b=b-4 


DRAW 0,1: DRAU -3,9B: DRAU -1,14: uso Le fax E THEN GO Sua 6214 


-1: PLOT uU-6,44: DRA 2,2: PLOT 010 SAVE “missite” LINE 19 
: = 
7440 PLOT uu-4,141: PLOT vUvU+43,141 
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74&BBD INVERSE 454: PLOT vuv-3,13: DR ULSR Characters ane CCrrespondids 
BU 0,1: DRAW 1,0: DRAW 1,-1. DRA tetters.......«ilhen enteicids the 
WD,-2: PLOT vUuy,143: DRAU 1,4: D 2rUgiad, USR SumDois Shouio be | 
RAL 1,6: DRA é paes stts ti LUuUrtê FO, LHR 3PPrIOPIaI STE 
?460 PLOT uu-4s,6: né Ds ye rd ETttêr iypêESs in GRAPRACO BVSEÊ : 
UU-4,4: DRAU 6 e: LU-2Z,4: 
DRAU 4,4: PLOT UU,4: DRAU 2,Ê da UDa TO.c > 2 
7478 PLOT UVU+2,4: DRAU 2,1: FLOT BEC DE rSA4 IR LtHtNOP VKS 
RE co aDrdo 1,6. 156 E rare should be tater ta enter. 
7480 FOR v=8 TO 3 the corréct CMC when typaing am 
7490 IF w=1 THEN GO TO 7556 the JZACo's. 


RR O aa > reias 50 A ca OT TE RABELO ER A TE RT 
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CORREIO DO MÊS 


Por lamentável lapso na organização dos jogos publicados na revista do mês de Novembro, ficou de fora 
uma parte fundamental do jogo intitulado «Planet Defender» escrito por Vítor Paulo Arsénio para o ZX Spectrum 
48 K. | 

Do facto pedimos desculpa a todos os nossos leitores e, em especial, ao seu autor. 

A seguir publicamos todo o bloco em falta, o qual deve ser gravado antes do bloco publicado no número 
de Novembro. 

Atenção: antes de gravar este novo bloco terá que fazer GO TO 1 ou RUN. 


q 


VIM 
7] 


100000, EIN 11000 BIN 01190000 

BIN GÔ119000, ES LR LADO, BIN Q 

9111100,255 

- 418 DATA “p”,0,BIN 990000111,BIN 

99001110.GBIM QÓLililo, 255, BIN O 

0111110, BIN 00001110,5TN 0000011 
111,6 IN 0001111 


Pá GOLLIIIA, BIN 19 CATA “o ,BIN 11190000,EIN O 
10001 11190290, 6IN 011111009, 25, EIN 211 
99011111.BIN O 111190, E IN er BIN 11100000 


1111,6IN gvolgos : 
9. BIN d00111I1. IN Qóliidll, E Ii co CATA “ul O, EIN 00011000,BIN 
g1111111,255 99100100, 265 DES, EIN 99100100, E 
13 CATA “a EIN 11111006,BIN à IN 00011000, a 
091000, E TN 11111000,BIN 900100 el DATA EIN 00100100,.BIN à 
Qd, EIN 11111000, EIN 11111100,5BIN 1090010, SIM 19011001, GIN 1dil1il 


QD0DDDOL, EIN QU 


y H , 
2a RES A =.) A A) pi 


91111110, 
11 DATA * 
9010000, BIM O 


RO: 
Eà CD pr Era 


“ 


11111416, po 1.BIN 4l4Ai1ÃS, E IM 10911001, «BIN 


dlodaolo, EIN móloalo 
s2 DATA. "tr '0,EIN 119900011,BIN 
v01111090,255, EIN 109211901,BIN O 


13 DATA |EIN 10900000,BIN 1 
109900910, SIN. 11150100. EIN 1111100 
d,6BIN 01111000,61IN 911iilioa, E IN 


Gil111190.61N 19091111 

lá CATAR Cal EIN qdapdllIl,. EIN dq 
0900011,BIM. adDBaB LL. EIN 00090011 
d. Elin 20001106, BIN DODIlODA, BIN 
20111100, Te, 

IS DATA [EIN 1909090090,25 É. 
SS «BIN oii daiio E IN 00010101, EIN 


1111116,GIN 99190190, 5 IH 9100001 
es CATA “BIN 0994100900, BIN q 
2210000, SI sd LTIdDO. E IN 2911100 
D.ETM 91111100, GIN 11111110, EIN 
A SS 


0001111, ia 299211111,0 So PRINT AT 7,1; INK d&; FLASH 
Lô CATA “34 YBIN 90000001, Dae 1; "PLANET CEFENDER ESTA À CORREG 

22. EIN 1111j116, E IN D10 10100. E IN ARVSAT 12,?; INVERSE Il, "ESPERE U 
11111004, ETN 11111190,0 .. MOMENT E | EE 
de DATA OR ,BEN 11100000, EIN 1 so LORO 


Para se obterem os símbolos gráficos que figuram no 
«Planet Defender» é necessário passar o cursor para 
o modo gráfico, utilizando a tabela seguinte: 


Deste modo damos satisfação a todos os leitores que se nos dirigiram apresentando esta dificuldade inesperada 
e renovamos o nosso habitual convite: enviem-nos os vossos programas originais, para teste e publicação 
nas páginas de «JOGOS SORTIDOS». Se, por qualquer motivo, não possui algum dos números de «JOGOS 
SORTIDOS» nesta sua NOVA FASE, dirija os seus pedidos para: 


JOGOS SORTIDOS - Rua Duque de Palmela, 37-2.º Dto — 1200 LISBOA 
|] 
fazendo-os acompanhar de cheque ou vale postal no valor de 80800 para os números 35 a 39, e de 100800 
"para os números 40 em diante. 


